﻿Public Class dmKhaiBaoSoHoaDon_report
    Dim dt As DataTable
    Private Sub dmKhaiBaoSoHoaDon_report_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.DonvisudungTableAdapter.Fill(Me.ErpharmaDataSet.donvisudung)
        Me.IReportViewer1.setParameter(Me.ErpharmaDataSet.donvisudung)
        Me.IReportViewer1.RefreshReport()
    End Sub
    Public Sub setDt(ByVal dt As DataTable)
        Me.DataSetReport.dmkhaibaosohoadon.Clear()
        Me.dt = dt
        Me.DataSetReport.dmkhaibaosohoadon.Merge(dt)
    End Sub
End Class